home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / index.dxr / 00005_Script Frame Init .ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  8.8 KB  |  55 lines
  1. on exitFrame
  2.   global gIndexCOSAObj, gIndexPPIOObj, gIndexInventObj, gIndexTodoObj, gCurrentLista, gPopUp, gLista1Sprite, gLista2Sprite, itemsTodo, gListaBlur, gListaLocVInicial, gTexto1LocVInicial, gTexto2LocVInicial, gBlink, gIndexhelpSprite, gIndexBtnSprite
  3.   set gBlink to 0
  4.   set splista to [6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]
  5.   set gBtnLeftSprite to 37
  6.   set gBtnRightSprite to 38
  7.   set gTexto1Sprite to 23
  8.   set gTexto2Sprite to 22
  9.   set gThumbnailSprite to 32
  10.   set gListaBlur to 30
  11.   set gLista1Sprite to 17
  12.   set gLista2Sprite to 18
  13.   set gListaLocVInicial to the locV of sprite gLista1Sprite + 20
  14.   set gTexto1LocVInicial to the locV of sprite gTexto1Sprite + 38
  15.   set gTexto2LocVInicial to the locV of sprite gTexto2Sprite + 38
  16.   set gIndexhelpSprite to 40
  17.   set gIndexBtnSprite to 39
  18.   set itemscosa to ["ALARM", "AMPO", "VICAM", "CAMAR", "COMPU", "REMOT", "PERSO", "FAX", "VIDEO", "CDPLA", "RADIO", "RELOJ", "PHONE", "TELE", "TUBOF"]
  19.   set MovieCosa to ["ALARM", "AMPO", "VICAM", "CAMAR", "COMPU", "REMOT", "PERSO", "FAX", "VIDEO", "CDPLA", "RADIO", "RELOJ", "PHONE", "TELE", "TUBOF"]
  20.   set SearchingCosa to ["Alarma", "Bombilla Electrica", "C├ímara de Video", "C├ímara  Fotogr├ífica", "Computador", "Control Remoto", "Estereo Personal", "Fax", "Grabador de Video", "Lector de CD", "Radio", "Reloj de Cuarzo", "Tel├⌐fono", "Televisor", "Tubo Fluorescente"]
  21.   if objectp(gIndexCOSAObj) = 0 then
  22.     set gIndexCOSAObj to TIndex(mnew, itemscosa, SearchingCosa, MovieCosa, 15, splista, gBtnLeftSprite, gBtnRightSprite, gTexto1Sprite, gTexto2Sprite, gThumbnailSprite, "LCOSASSP", "COSAS TEXTO1", "EmptyBitmap")
  23.   else
  24.   end if
  25.   set itemsPrincipio to ["PARLA", "BATER", "CALOR", "ENERG", "LCD", "ENGRA", "BINAR", "LENTE", "LASER", "COLOR", "MAGNE", "MOTOR", "ONDAS", "ELECT", "PERSI", "TERMO", "TRANS"]
  26.   set MoviePrincipio to ["PARLA", "BATER", "CALOR", "ENERG", "LCD", "ENGRA", "BINAR", "LENTE", "LASER", "COLOR", "MAGNE", "MOTOR", "ONDAS", "ELECT", "PERSI", "TERMO", "TRANS"]
  27.   set SearchingPrincipio to ["AltoParlante", "Bater├¡a", "Calor y Temperatura", "Conservaci├│n Energ├¡a", "Cristal L├¡quido", "Engranajes", "Informaci├│n Digital", "Lentes y Espejos", "Luz L├íser", "Luz y Color", "Magnetismo", "Motor El├⌐ctrico", "Ondas de Sonido", "Ondas El├⌐ctromagn├⌐tica", "Persistencia  Visi├│n", "Termostato", "Transistor"]
  28.   if objectp(gIndexPPIOObj) = 0 then
  29.     set gIndexPPIOObj to TIndex(mnew, itemsPrincipio, SearchingPrincipio, MoviePrincipio, 17, splista, gBtnLeftSprite, gBtnRightSprite, gTexto1Sprite, gTexto2Sprite, gThumbnailSprite, "LPRINCSP", "PRINCIPIO TEXTO1", "EmptyBitmap")
  30.   else
  31.   end if
  32.   set itemsInventores to ["AMSTR", "BABBA", "BAIN", "BARDE", "BECQU", "BRATT", "BRAUN", "CAMPB", "CASSE", "CLAUD", "COMPT", "COOKE", "DAGUE", "FORES", "LOVEL", "EASTM", "ECKER", "EDISO", "FESSE", "FLEMA", "GALIL", "BELL", "GRAY", "HAMMO", "HOLLE", "HOLME", "HUYGE", "IBUKA", "JOBS", "JVC", "MARCO", "MAUCH", "MAY", "MEUCC", "MORIT", "MORRI", "MORSE", "NIPKO", "PASCA", "PHILV", "PHILC", "PONIA", "RAMSA", "ROSIN", "SHOCK", "SONYV", "SONYC", "SWAN", "TRAVE", "VALEN", "NEWMA", "WHEAT", "WOZNI", "ZENIT", "ZWORY"]
  33.   set SearchingInventores to ["Armstrong, Edwin Howard", "Babbage, Charles ", "Bain, Alexander ", "Bardeen, John  ", "Becquerel, Antoine-Henri  ", "Brattain, Walter H. ", "Braun, Herr Ferdinand ", "Campbell-Swinton, A.", "Casseli, Giovanni", "Claude, George ", "Compton, Arthur ", "Cooke, William", "Daguerr├⌐, Louis J.", "De Forest, Lee ", "De Lovelace, Ada", "Eastman, George ", "Eckert, John ", "Edison, Thomas A. ", "Fessenden, Reginald Aubrey", "Fleming, Sir Ambrose ", "Galiei, Galileo", "Graham Bell, Alexander", "Gray, Elisha ", "Hammond, John Hays ", "Hollerith, Herman ", "Holmes, Edwin ", "Huygens, Christiaan  ", "Ibuka", "Jobs, Steve ", "JVC", "Marconi, Guglielmo", "Mauchly, John ", "May, Luis ", "Meucci, Antonio", "Morita, Akio", "Morrison, Warren ", "Morse, Samuel ", "Nipkow, Herr Paul ", "Pascal, Blaise ", "Philips Holanda", "Philips Holanda", "Poniateff, Alexander", "Ramsay, Sir William", "Rosing, Boris ", "Shockley, William ", "Sony", "Sony Jap├│n", "Swan, Joseph ", "Travers, Morris William ", "Valensi, George ", "Von Neumann, John ", "Wheatstone, Charles ", "Wozniack, Steve ", "Zenith Corporation", "Zworykin, Vladimir "]
  34.   set MovieInventores to ["RADIO", "COMPU", "FAX", "RADIO", "TUBOF", "RADIO", "TELE", "TELE", "FAX", "TUBOF", "TUBOF", "PHONE", "CAMAR", "RADIO", "COMPU", "CAMAR", "COMPU", "AMPO", "RADIO", "RADIO", "RELOJ", "PHONE", "PHONE", "REMOT", "COMPU", "ALARM", "RELOJ", "PERSO", "COMPU", "VICAM", "RADIO", "COMPU", "TELE", "PHONE", "PERSO", "RELOJ", "PHONE", "TELE", "COMPU", "VICAM", "CDPLA", "VIDEO", "TUBOF", "TELE", "RADIO", "VICAM", "CDPLA", "AMPO", "TUBOF", "TELE", "COMPU", "PHONE", "COMPU", "REMOT", "TELE"]
  35.   if objectp(gIndexInventObj) = 0 then
  36.     set gIndexInventObj to TIndex(mnew, itemsInventores, SearchingInventores, MovieInventores, 55, splista, gBtnLeftSprite, gBtnRightSprite, gTexto1Sprite, gTexto2Sprite, gThumbnailSprite, "LINVENSP", "INVENTORES TEXTO1", "INVENTORES TEXTO2")
  37.   else
  38.   end if
  39.   if objectp(gIndexTodoObj) = 0 then
  40.     set itemsTodo to ["ALARM", "PARLA", "AMSTR", "BABBA", "BAIN", "BARDE", "BATER", "BECQU", "AMPO", "BRATT", "BRAUN", "CALOR", "VICAM", "CAMAR", "CAMPB", "CASSE", "CLAUD", "COMPT", "COMPU", "ENERG", "REMOT", "COOKE", "LCD", "DAGUE", "FORES", "LOVEL", "EASTM", "ECKER", "EDISO", "ENGRA", "PERSO", "FAX", "FESSE", "FLEMA", "GALIL", "VIDEO", "BELL", "GRAY", "HAMMO", "HOLLE", "HOLME", "HUYGE", "IBUKA", "BINAR", "JOBS", "JVC", "CDPLA", "LENTE", "LASER", "COLOR", "MAGNE", "MARCO", "MAUCH", "MAY", "MEUCC", "MORIT", "MORRI", "MORSE", "MOTOR", "NIPKO", "ONDAS", "ELECT", "PASCA", "PERSI", "PHILV", "PHILC", "PONIA", "RADIO", "RAMSA", "RELOJ", "ROSIN", "SHOCK", "SONYV", "SONYC", "SWAN", "PHONE", "TELE", "TERMO", "TRANS", "TRAVE", "TUBOF", "VALEN", "NEWMA", "WHEAT", "WOZNI", "ZENIT", "ZWORY"]
  41.     set SearchingTodo to ["Alarma", "AltoParlante", "Armstrong, Edwin H.", "Babbage, Charles ", "Bain, Alexander ", "Bardeen, John  ", "Bater├¡a", "Becquerel, Antoine H. ", "Bombilla El├⌐ctrica", "Brattain, Walter H. ", "Braun, Herr Ferdinand ", "Calor y Temperatura", "C├ímara de Video", "C├ímara Fotogr├ífica", "Campbell-Swinton, A.", "Casseli, Giovanni", "Claude, George ", "Compton, Arthur ", "Computador Personal", "Conservaci├│n Energ├¡a", "Control Remoto", "Cooke, William", "Cristal L├¡quido", "Daguerr├⌐, Louis J.", "De Forest, Lee ", "De Lovelace, Ada", "Eastman, George ", "Eckert, John ", "Edison, Thomas A. ", "Engranajes", "Est├⌐reo Personal", "Fax", "Fessenden, Reginald A.", "Fleming, Sir Ambrose ", "Galiei, Galileo", "Grabador de Video", "Graham Bell, Alexander", "Gray, Elisha ", "Hammond, John Hays ", "Hollerith, Herman ", "Holmes, Edwin ", "Huygens, Christiaan  ", "Ibuka", "Informaci├│n Digital", "Jobs, Steve ", "JVC", "Lector de CD", "Lentes y Espejos", "Luz L├íser", "Luz y Color", "Magnetismo", "Marconi, Guglielmo", "Mauchly, John ", "May, Luis ", "Meucci, Antonio", "Morita, Akio", "Morrison, Warren ", "Morse, Samuel ", "Motor El├⌐ctrico", "Nipkow, Herr Paul ", "Ondas de Sonido", "Ondas El├⌐ctromagn├⌐tica", "Pascal, Blaise ", "Persistencia  Visi├│n", "Philips (C├ímara Video)", "Philips (Lector CD)", "Poniateff, Alexander", "Radio", "Ramsay, Sir William", "Reloj de Cuarzo", "Rosing, Boris ", "Shockley, William ", "Sony (C├ímara de Video)", "Sony (Lector CD)", "Swan, Joseph ", "Tel├⌐fono", "Televisor", "Termostato", "Transistor", "Travers, Morris W. ", "Tubo Fluorescente", "Valensi, George ", "Von Neumann, John ", "Wheatstone, Charles ", "Wozniack, Steve ", "Zenith Corporation", "Zworykin, Vladimir "]
  42.     set MovieTodo to ["ALARM", "PARLA", "RADIO", "COMPU", "FAX", "RADIO", "BATER", "TUBOF", "AMPO", "RADIO", "TELE", "CALOR", "VICAM", "CAMAR", "TELE", "FAX", "TUBOF", "TUBOF", "COMPU", "ENERG", "REMOT", "PHONE", "LCD", "CAMAR", "RADIO", "COMPU", "CAMAR", "COMPU", "AMPO", "ENGRA", "PERSO", "FAX", "RADIO", "RADIO", "RELOJ", "VIDEO", "PHONE", "PHONE", "REMOT", "COMPU", "ALARM", "RELOJ", "PERSO", "BINAR", "COMPU", "VICAM", "CDPLA", "LENTE", "LASER", "COLOR", "MAGNE", "RADIO", "COMPU", "TELE", "PHONE", "PERSO", "RELOJ", "PHONE", "MOTOR", "TELE", "ONDAS", "ELECT", "COMPU", "PERSI", "VICAM", "CDPLA", "VIDEO", "RADIO", "TUBOF", "RELOJ", "TELE", "RADIO", "VICAM", "CDPLA", "AMPO", "PHONE", "TELE", "TERMO", "TRANS", "TUBOF", "TUBOF", "TELE", "COMPU", "PHONE", "COMPU", "REMOT", "TELE"]
  43.     set gIndexTodoObj to TIndex(mnew, itemsTodo, SearchingTodo, MovieTodo, 87, splista, gBtnLeftSprite, gBtnRightSprite, gTexto1Sprite, gTexto2Sprite, gThumbnailSprite, "LTODOSP", "TODO TEXTO1", "EmptyBitmap")
  44.   end if
  45.   set gCurrentLista to gIndexCOSAObj
  46.   gCurrentLista(mSetUpList)
  47.   set RetornoMenu to ["COSA", "PRINCIPIOS", "INVENTOR", "TODO"]
  48.   set elbasesprite to 28
  49.   set elhisprite to 29
  50.   set elBorde to 5
  51.   set elLeading to 25
  52.   set elancho to 97
  53.   set gPopUp to TPopup(mnew, RetornoMenu, elbasesprite, "MENUSP", "Hilite", elLeading, elancho, elBorde)
  54. end
  55.